home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / libraries / tri12dev.lha / Triton / Developer / M2Amiga / TritonD.def < prev    next >
Encoding:
Modula Definition  |  1995-01-14  |  30.4 KB  |  494 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.  | 
  3.  | $VER: TritonD.def 1.00 (06.09.94) by Stefan Schulz
  4.  | 
  5.  | Module          : TritonD
  6.  | Last Modified   : Tuesday, 06.09.94
  7.  | Author          : Stefan Schulz
  8.  | Actual Revision : 1.00
  9.  | 
  10.  | 
  11.  | Description
  12.  | -----------
  13.  |   - Interface to Triton.library
  14.  |     Triton is copyright © 1993, 1994 by Stefan Zeiger
  15.  | 
  16.  | Requirements
  17.  | ------------
  18.  |   - triton.library V1.1
  19.  | 
  20.  | Language
  21.  | --------
  22.  |   - M2Amiga Modula 2 Software Development System
  23.  |     © Copyright by A+L AG, CH-2540 Grenchen
  24.  | 
  25.  | Revision 1.00  \05.09.94\\06.09.94\
  26.  |  - initial revision
  27.  |   
  28.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  29.  
  30. DEFINITION MODULE TritonD; (*$ Implementation:= FALSE *)
  31.  
  32. (* IMPORTS ********************************************************************** *)
  33.  
  34. IMPORT  ed      : ExecD,
  35.         gtd     : GadToolsD,
  36.         gd      : GraphicsD,
  37.         ie      : InputEvent,
  38.         ind     : IntuitionD,
  39.         S       : SYSTEM,
  40.         ud      : UtilityD,
  41.         wd      : WorkbenchD;
  42.  
  43. (* ****************************************************************************** *)
  44.  
  45. (* ------------------------------------------------------------------------------ *)
  46. (* library name and version                                                       *)
  47. (* ------------------------------------------------------------------------------ *)
  48.  
  49. CONST   tritonName      = "triton.library";
  50.         tritonVersion   = 1;
  51.  
  52. (* ------------------------------------------------------------------------------ *)
  53. (* Pointers to everything                                                         *)
  54. (* ------------------------------------------------------------------------------ *)
  55.  
  56. TYPE    TrAppPtr        = POINTER TO TrApp;
  57.         TrDimensionsPtr = POINTER TO TrDimensions;
  58.         TrMessagePtr    = POINTER TO TrMessage;
  59.         TrProjectPtr    = POINTER TO TrProject;
  60.  
  61. TYPE    (* for readability *)
  62.         StrPtr          = S.ADDRESS;
  63.         BOOL            = INTEGER;   (* has to be SIZE(WORD), so no BOOLEANs      *)
  64.  
  65. (* ------------------------------------------------------------------------------ *)
  66. (* Triton Message                                                                 *)
  67. (* ------------------------------------------------------------------------------ *)
  68.  
  69. TYPE    TrMessage     = RECORD
  70.                         project   : TrProjectPtr; (* The project which triggered  *)
  71.                                                   (* the message                  *)
  72.                         id        : LONGCARD;     (* The object's ID              *)
  73.                         class     : LONGCARD;     (* The Triton message class     *)
  74.                         data      : LONGCARD;     (* The class-specific data      *)
  75.                         code      : LONGCARD;     (* Currently only used by       *)
  76.                                                   (* trmsKEYPRESSED               *)
  77.                         pad0      : CARDINAL;       (* qualifier is only 16 Bit   *)
  78.                         qualifier : ie.QualifierSet;(* Qualifiers                 *)
  79.                         seconds   : LONGCARD;     (* \ Copy of system clock time  *)
  80.                         micros    : LONGCARD;     (* / (Only where available! If  *)
  81.                                                   (*    not set, seconds is NULL) *)
  82.                         app       : TrAppPtr;     (* The project's application    *)
  83.                         END; (* TrMessage *)
  84.  
  85. CONST   (* Message Classes *)
  86.         trmsCLOSEWINDOW = 1; (* The window should be closed                       *)
  87.         trmsERROR       = 2; (* An error occured. Error code in 'data'            *)
  88.         trmsNEWVALUE    = 3; (* Object's value has changed. New value in 'data'   *)
  89.         trmsACTION      = 4; (* Object has triggered an action                    *)
  90.         trmsICONDROPPED = 5; (* Icon dropped over window ('id'=0) or DropBox.     *)
  91.                              (* AppMessagePtr in 'data'                           *)
  92.         trmsKEYPRESSED  = 6; (* Key pressed. 'data' contains ASCII code, 'code'   *)
  93.                              (* raw code and 'qualifier' contains qualifiers      *)
  94.         trmsHELP        = 7; (* The user requested help for the specified ID      *)
  95.  
  96. (* ------------------------------------------------------------------------------ *)
  97. (* Triton Error Codes                                                             *)
  98. (* ------------------------------------------------------------------------------ *)
  99.  
  100. CONST   trerOK                  = 0;  (* No error                                 *)
  101.         
  102.         trerALLOCMEM            = 1;  (* Not enough memory                        *)
  103.         trerOPENWINDOW          = 2;  (* Can't open window                        *)
  104.         trerWINDOWTOOBIG        = 3;  (* Window would be too big for screen       *)
  105.         trerDRAWINFO            = 4;  (* Can't get screen's DrawInfo              *)
  106.         trerOPENFONT            = 5;  (* Can't open font                          *)
  107.         trerCREATEMSGPORT       = 6;  (* Can't create message port                *)
  108.         trerINSTALLOBJECT       = 7;  (* Can't create an object                   *)
  109.         trerCREATECLASS         = 8;  (* Can't create a class                     *)
  110.         trerNOLOCKPUBSCREEN     = 9;  (* Can't lock public screen                 *)
  111.         trerCREATEMENUS         = 12; (* Error while creating the menus           *)
  112.         trerGTCREATECONTEXT     = 14; (* Can't create gadget context              *)
  113.         
  114.         trerMAXERRORNUM         = 15; (* PRIVATE!                                 *)
  115.  
  116. (* ------------------------------------------------------------------------------ *)
  117. (* Tags for OpenProject                                                          *)
  118. (* ------------------------------------------------------------------------------ *)
  119.  
  120. CONST   (* Window/Project *)
  121.         trwiTitle               = ud.tagUser+1; (* STRPTR: The window title       *)
  122.         trwiFlags               = ud.tagUser+2; (* See below for window flags     *)
  123.         trwiUnderscore          = ud.tagUser+3; (* CharPtr: The underscore for    *)
  124.                                                 (* menu and gadget shortcuts      *)
  125.         trwiPosition            = ud.tagUser+4; (* Window position, see below     *)
  126.         trwiCustomScreen        = ud.tagUser+5; (* ScreenPtr                      *)
  127.         trwiPubScreen           = ud.tagUser+6; (* ScreenPtr, must have been      *)
  128.                                                 (* locked!                        *)
  129.         trwiPubScreenName       = ud.tagUser+7; (* StrPtr, Triton is doing the    *)
  130.                                                 (* locking                        *)
  131.         trwiPropFontAttr        = ud.tagUser+8; (* TextAttrPtr: proportional font *)
  132.         trwiFixedWidthFontAttr  = ud.tagUser+9; (* TextAttrPtr: fixed-width font  *)
  133.         trwiBackfill            = ud.tagUser+10; (* The backfill type, see below  *)
  134.         trwiID                  = ud.tagUser+11; (* LONGCARD: The window ID       *)
  135.         trwiDimensions          = ud.tagUser+12; (* TrDimensionsPtr               *)
  136.         trwiScreenTitle         = ud.tagUser+13; (* StrPtr: The screen title      *)
  137.  
  138. CONST   (* Menus *)
  139.         trmnTitle               = ud.tagUser+101; (* StrPtr: Menu                 *)
  140.         trmnItem                = ud.tagUser+102; (* StrPtr: Menu item            *)
  141.         trmnSub                 = ud.tagUser+103; (* StrPtr: Menu subitem         *)
  142.         trmnFlags               = ud.tagUser+104; (* See below for flags          *)
  143.  
  144. CONST   (* General object attributes *)
  145.         tratID                  = ud.tagUser+150; (* The object's/menu's ID       *)
  146.         tratFlags               = ud.tagUser+151; (* The object's flags           *)
  147.         tratValue               = ud.tagUser+152; (* The object's value           *)
  148.         tratText                = ud.tagUser+153; (* The object's text            *)
  149.         tratDisabled            = ud.tagUser+154; (* Disabled object?             *)
  150.         tratBackfill            = ud.tagUser+155; (* Backfill pattern             *)
  151.         tratMinWidth            = ud.tagUser+156; (* Minimum width                *)
  152.         tratMinHeight           = ud.tagUser+157; (* Minimum height               *)
  153.  
  154.         trobUSER                = ud.tagUser+800; (* PRIVATE!                     *)
  155.  
  156. (* ------------------------------------------------------------------------------ *)
  157. (* Window Flags                                                                   *)
  158. (* ------------------------------------------------------------------------------ *)
  159.  
  160. CONST   trwfBACKDROP            = 00000001H; (* Create a backdrop borderless      *)
  161.                                              (* window                            *)
  162.         trwfNODRAGBAR           = 00000002H; (* Don't use a dragbar               *)
  163.         trwfNODEPTHGADGET       = 00000004H; (* Don't use a depth-gadget          *)
  164.         trwfNOCLOSEGADGET       = 00000008H; (* Don't use a close-gadget          *)
  165.         trwfNOACTIVATE          = 00000010H; (* Don't activate window             *)
  166.         trwfNOESCCLOSE          = 00000020H; (* Don't send trmsCLOSEWINDOW when   *)
  167.                                              (* Esc is pressed                    *)
  168.         trwfNOPSCRFALLBACK      = 00000040H; (* Don't fall back onto default      *)
  169.                                              (* PubScreen                         *)
  170.         trwfNOZIPGADGET         = 00000080H; (* Don't use a zip-gadget            *)
  171.         trwfZIPCENTERTOP        = 00000100H; (* Center the zipped window on the   *)
  172.                                              (* title bar                         *)
  173.         trwfNOMINTEXTWIDTH      = 00000200H; (* Minimum window width not according*)
  174.                                              (* to title text                     *)
  175.         trwfNOSIZEGADGET        = 00000400H; (* Don't use a sizing-gadget         *)
  176.         trwfNOFONTFALLBACK      = 00000800H; (* Don't fall back to topaz.8        *)
  177.         trwfNODELZIP            = 00001000H; (* Don't zip the window when Del is  *)
  178.                                              (* pressed                           *)
  179.         trwfSIMPLEREFRESH       = 00002000H; (* Use simple refresh instead of     *)
  180.                                              (* smart refresh                     *)
  181.         trwfZIPTOCURRENTPOS     = 00004000H; (* Will zip the window at the current*)
  182.                                              (* position (OS3.0+)                 *)
  183.         trwfAPPWINDOW           = 00008000H; (* Create an AppWindow without using *)
  184.                                              (* class_dropbox                     *)
  185.         trwfACTIVATESTRGAD      = 00010000H; (* Activate the first string gadget  *)
  186.                                              (* after opening the window          *)
  187.         trwfHELP                = 00020000H; (* Pressing <Help> will create a     *)
  188.                                              (* trmsHELP message                  *)
  189.  
  190. (* ------------------------------------------------------------------------------ *)
  191. (* Menu Flags                                                                     *)
  192. (* ------------------------------------------------------------------------------ *)
  193.  
  194. CONST   trmfCHECKIT             = 00000001H; (* Leave space for a checkmark       *)
  195.         trmfCHECKED             = 00000002H; (* Check the item (includes          *)
  196.                                              (* trmfCHECKIT)                      *)
  197.         trmfDISABLED            = 00000004H; (* Ghost the menu/item               *)
  198.  
  199.  
  200. (* ------------------------------------------------------------------------------ *)
  201. (* Window positions                                                               *)
  202. (* ------------------------------------------------------------------------------ *)
  203.  
  204. CONST   trwpDEFAULT           = 0;    (* Get Triton choose a good position        *)
  205.         trwpBELOWTITLEBAR     = 1;    (* Left side of screen, below title bar     *)
  206.         trwpCENTERTOP         = 1025; (* Top of screen, centered on the title bar *)
  207.         trwpTOPLEFTSCREEN     = 1026; (* Top left corner of screen                *)
  208.         trwpCENTERSCREEN      = 1027; (* Centered on the screen                   *)
  209.         trwpCENTERDISPLAY     = 1028; (* Centered on the currently displayed clip *)
  210.         trwpMOUSEPOINTER      = 1029; (* Under the mouse pointer                  *)
  211.  
  212. (* ------------------------------------------------------------------------------ *)
  213. (* Backfill types                                                                 *)
  214. (* ------------------------------------------------------------------------------ *)
  215.  
  216.         trbfWINDOWBACK          = 0;  (* Window backfill colors                   *)
  217.         trbfREQUESTERBACK       = 1;  (* Requester backfill colors                *)
  218.         trbfNONE                = 2;  (* No backfill (= Fill with BACKGROUNDPEN)  *)
  219.         trbfSHINE               = 3;  (* Fill with SHINEPEN                       *)
  220.         trbfSHINESHADOW         = 4;  (* Fill with SHINEPEN + SHADOWPEN           *)
  221.         trbfSHINEFILL           = 5;  (* Fill with SHINEPEN + FILLPEN             *)
  222.         trbfSHINEBACKGROUND     = 6;  (* Fill with SHINEPEN + BACKGROUNDPEN       *)
  223.         trbfSHADOW              = 7;  (* Fill with SHADOWPEN                      *)
  224.         trbfSHADOWFILL          = 8;  (* Fill with SHADOWPEN + FILLPEN            *)
  225.         trbfSHADOWBACKGROUND    = 9;  (* Fill with SHADOWPEN + BACKGROUNDPEN      *)
  226.         trbfFILL                = 10; (* Fill with FILLPEN                        *)
  227.         trbfFILLBACKGROUND      = 11; (* Fill with FILLPEN + BACKGROUNDPEN        *)
  228.  
  229. (* ------------------------------------------------------------------------------ *)
  230. (* Display Object Flags                                                           *)
  231. (* ------------------------------------------------------------------------------ *)
  232.  
  233. CONST   (* General flags *)
  234.         trofRAISED      = 00000001H; (* Raised object                             *)
  235.         trofHORIZ       = 00000002H; (* Horizontal object \ Works automatically   *)
  236.         trofVERT        = 00000004H; (* Vertical object   / in groups             *)
  237.         trofRIGHTALIGN  = 00000008H; (* Align object to the right border if       *)
  238.                                      (* available                                 *)
  239.  
  240. CONST   (* Text flags *)
  241.         trtxNOUNDERSCORE= 00000100H; (* Don't interpret underscores               *)
  242.         trtxHIGHLIGHT   = 00000200H; (* Highlight text                            *)
  243.         trtx3D          = 00000400H; (* 3D design                                 *)
  244.         trtxBOLD        = 00000800H; (* Softstyle 'bold'                          *)
  245.         trtxTITLE       = 00001000H; (* A title (e.g. of a group)                 *)
  246.         trtxSELECTED    = 00002000H; (* PRIVATE!                                  *)
  247.  
  248. (* ------------------------------------------------------------------------------ *)
  249. (* Menu entries                                                                   *)
  250. (* ------------------------------------------------------------------------------ *)
  251.  
  252. CONST   trmnBARLABEL    = -1; (* A barlabel instead of text                       *)
  253.  
  254. (* ------------------------------------------------------------------------------ *)
  255. (* Tags for CreateApp()                                                          *)
  256. (* ------------------------------------------------------------------------------ *)
  257.  
  258. CONST   trcaName        = ud.tagUser+1;
  259.         trcaLongName    = ud.tagUser+2;
  260.         trcaInfo        = ud.tagUser+3;
  261.         trcaVersion     = ud.tagUser+4;
  262.         trcaRelease     = ud.tagUser+5;
  263.         trcaDate        = ud.tagUser+6;
  264.  
  265. (* ------------------------------------------------------------------------------ *)
  266. (* Tags for EasyRequest()                                                        *)
  267. (* ------------------------------------------------------------------------------ *)
  268.  
  269. CONST   trezReqPos      = ud.tagUser+1;
  270.         trezLockProject = ud.tagUser+2;
  271.         trezReturn      = ud.tagUser+3;
  272.         trezTitle       = ud.tagUser+4;
  273.         trezActivate    = ud.tagUser+5;
  274.  
  275. (* ------------------------------------------------------------------------------ *)
  276. (* The Application Structure                                                      *)
  277. (* ------------------------------------------------------------------------------ *)
  278.  
  279. TYPE    TrApp         = RECORD (* This structure is PRIVATE! *)
  280.                         memPool    : S.ADDRESS;    (* The memory pool             *)
  281.                         bitMask    : LONGCARD;     (* Bits to Wait() for          *)
  282.                         lastError  : LONGCARD;     (* trer code of last error     *)
  283.                         name       : StrPtr;       (* Unique name                 *)
  284.                         longName   : StrPtr;       (* User-readable name          *)
  285.                         info       : StrPtr;       (* Info string                 *)
  286.                         version    : StrPtr;       (* Version                     *)
  287.                         release    : StrPtr;       (* Release                     *)
  288.                         date       : StrPtr;       (* Compilation date            *)
  289.                         appPort    : ed.MsgPortPtr;(* Application message port    *)
  290.                         idcmpPort  : ed.MsgPortPtr;(* IDCMP message port          *)
  291.                         prefs      : S.ADDRESS;    (* Pointer to Triton app prefs *)
  292.                         lastProject: TrProjectPtr; (* Used for menu item linking  *)
  293.                         inputEvent : ie.InputEventPtr; (* For RAWKEY conversion   *)
  294.                         END; (* TrApp *)
  295.  
  296. (* ------------------------------------------------------------------------------ *)
  297. (* The Dimension Structure                                                        *)
  298. (* ------------------------------------------------------------------------------ *)
  299.  
  300. TYPE    TrDimensions  = RECORD
  301.                         left          : CARDINAL;
  302.                         top           : CARDINAL;
  303.                         width         : CARDINAL;
  304.                         height        : CARDINAL;
  305.                         left2         : CARDINAL;
  306.                         top2          : CARDINAL;
  307.                         width2        : CARDINAL;
  308.                         height2       : CARDINAL;
  309.                         zoomed        : BOOL;
  310.                         reserved      : ARRAY [0..2] OF CARDINAL;
  311.                         END; (* TrDimensions *)
  312.  
  313. (* ------------------------------------------------------------------------------ *)
  314. (* The Projects Structure                                                         *)
  315. (* ------------------------------------------------------------------------------ *)
  316.  
  317. TYPE    TrProject     = RECORD (* This structure is PRIVATE! *)
  318.                         app           : TrAppPtr;     (* Our application          *)
  319.                         screen        : ind.ScreenPtr;(* Our screen, always valid *)
  320.                         
  321.                         lockedPubScreen:ind.ScreenPtr;(* Only valid if we're using*)
  322.                                                       (* a PubScreen              *)
  323.                         screenTitle   : StrPtr;       (* The screen title         *)
  324.                          
  325.                         window        : ind.Window;     (* The window             *)
  326.                         id            : LONGCARD;       (* The window ID          *)
  327.                         appWindow     : wd.AppWindowPtr;(* AppWindow for icon     *)
  328.                                                         (* dropping               *)
  329.                         
  330.                         idcmpFlags    : LONGCARD;       (* The IDCMP flags        *)
  331.                         flags         : LONGCARD;       (* Triton window flags    *)
  332.                         
  333.                         newMenu       : gtd.NewMenuPtr; (* The newmenu stucture   *)
  334.                                                         (* built by Triton        *)
  335.                         newMenuSize   : LONGCARD;       (* The number of menu     *)
  336.                                                         (* items in the list      *)
  337.                         menu          : ind.MenuPtr;    (* The menu structure     *)
  338.                         nextSelect    : LONGCARD;       (* The next selected menu *)
  339.                                                         (* item                   *)
  340.                         
  341.                         visualInfo    : S.ADDRESS;      (* The VisualInfo of our  *)
  342.                                                         (* window                 *)
  343.                         drawInfo      : ind.DrawInfoPtr;(* DrawInfo of the screen *)
  344.                         userDimensions: TrDimensionsPtr;(* supplied dimensions    *)
  345.                         dimensions    : TrDimensionsPtr;(* Private dimensions     *)
  346.                         
  347.                         windowStdHeight:LONGCARD; (* standard height of the window*)
  348.                         leftBorder    : LONGCARD; (* left window border width     *)
  349.                         rightBorder   : LONGCARD; (* right window border width    *)
  350.                         topBorder     : LONGCARD; (* top window border height     *)
  351.                         bottomBorder  : LONGCARD; (* bottom window border height  *)
  352.                         innerWidth    : LONGCARD; (* inner width of the window    *)
  353.                         innerHeight   : LONGCARD; (* inner height of the window   *)
  354.                         zipDimensions : ARRAY [0..3] OF INTEGER; (* The dimensions*)
  355.                                                   (* for the zipped window        *)
  356.                         aspectFixing  : CARDINAL; (*Pixel aspect correction factor*)
  357.                         
  358.                         objectList    : ed.MinList; (* The list of display objects*)
  359.                         menuList      : ed.MinList; (* The list of menus          *)
  360.                         idList        : ed.MinList; (* The ID linking list        *)
  361.                                                     (* (menus & objects)          *)
  362.                         memPool       : S.ADDRESS;  (* memory pool for the lists  *)
  363.                         hasObjects    : BOOL;       (* Do we have display objects?*)
  364.                         
  365.                         propAttr      : gd.TextAttrPtr; (* The proportional font  *)
  366.                                                         (* attributes             *)
  367.                         fixedWidthAttr: gd.TextAttrPtr; (* The fixed-width font   *)
  368.                                                         (* attributes             *)
  369.                         propFont      : gd.TextFontPtr; (* The proportional font  *)
  370.                         fixedWidthFont: gd.TextFontPtr; (* The fixed-width font   *)
  371.                         openedPropFont: BOOL;           (* Have we opened the     *)
  372.                         openedFixedWidthFont: BOOL;     (* fonts ?                *)
  373.                         totalPropFontHeight : CARDINAL; (* Height of prop font    *)
  374.                                                         (* incl. underscore       *)
  375.                         
  376.                         backfillType  : LONGCARD;       (* The backfill type      *)
  377.                         backfillHook  : ud.HookPtr;     (* The backfill hook      *)
  378.                         
  379.                         gadToolsGadgetList: ind.GadgetPtr;(* List of GadTools     *)
  380.                                                           (* gadgets              *)
  381.                         prevGadget    : ind.GadgetPtr;    (* Previous gadget      *)
  382.                         newGadget     : gtd.NewGadgetPtr; (* GadTools NewGadget   *)
  383.                         
  384.                         invisibleRequest: ind.RequesterPtr; (* The invisible      *)
  385.                                                         (* blocking requester     *)
  386.                         isUserLocked  : BOOL;           (* Project locked by the  *)
  387.                                                         (* user?                  *)
  388.                         
  389.                         currentID     : LONGCARD;(* currently keyboard-selected ID*)
  390.                         isCancelDown  : BOOL;    (* Cancellation key pressed?     *)
  391.                         isShortcutDown: BOOL;    (* Shortcut key pressed?         *)
  392.                         underscore    : CHAR;    (* The underscore character      *)
  393.                         
  394.                         escClose      : BOOL;    (* Close window on Esc ?         *)
  395.                         delZip        : BOOL;    (* Zip window on Del ?           *)
  396.                         pubScreenFallBack: BOOL; (* Fall back onto default public *)
  397.                                                  (* screen ?                      *)
  398.                         fontFallBack  : BOOL;    (* Fall back to topaz.8 ?        *)
  399.                         
  400.                         oldWidth      : CARDINAL;(* Old window width              *)
  401.                         oldHeight     : CARDINAL;(* Old window height             *)
  402.                         
  403.                         END; (* TrProjects *)
  404.  
  405. (* ------------------------------------------------------------------------------ *)
  406. (* Default classes, attributes and flags                                          *)
  407. (* ------------------------------------------------------------------------------ *)
  408.  
  409. CONST   (* Classes *)
  410.  
  411.         trobButton       = ud.tagUser+305; (* A BOOPSI button gadget              *)
  412.         trobCheckBox     = ud.tagUser+303; (* A checkbox gadget                   *)
  413.         trobCycle        = ud.tagUser+310; (* A cycle gadget                      *)
  414.         trobFrameBox     = ud.tagUser+306; (* A framing box                       *)
  415.         trobDropBox      = ud.tagUser+312; (* An icon drop box                    *)
  416.         trgrHoriz        = ud.tagUser+201; (* Horizontal group,see below for types*)
  417.         trgrVert         = ud.tagUser+202; (* Vertical group, see below for types *)
  418.         trgrEnd          = ud.tagUser+203; (* End of a group                      *)
  419.         trobLine         = ud.tagUser+301; (* A simple line                       *)
  420.         trobPalette      = ud.tagUser+307; (* A palette gadget                    *)
  421.         trobScroller     = ud.tagUser+309; (* A scroller gadget                   *)
  422.         trobSlider       = ud.tagUser+308; (* A slider gadget                     *)
  423.         trobSpace        = ud.tagUser+901; (* The spaces class                    *)
  424.         trobString       = ud.tagUser+311; (* A string gadget                     *)
  425.         trobText         = ud.tagUser+304; (* A line of text                      *)
  426.         trobListview     = ud.tagUser+313; (* A listview gadget                   *)
  427.         trobProgress     = ud.tagUser+314; (* A progress indicator                *)
  428.         trobImage        = ud.tagUser+315; (* An image                            *)
  429.  
  430. CONST   (* Button *)
  431.         trbuRETURNOK     = 00010000H;   (* <Return> answers the button            *)
  432.         trbuESCOK        = 00020000H;   (* <Esc> answers the button               *)
  433.         trbuSHIFTED      = 00040000H;   (* Shifted shortcut only                  *)
  434.         trbuUNSHIFTED    = 00080000H;   (* Unshifted shortcut only                *)
  435.         trbuYRESIZE      = 00100000H;   (* Button resizeable in Y direction       *)
  436.         trbtTEXT         = 0;           (* Text button                            *)
  437.         trbtGETFILE      = 1;           (* GetFile button                         *)
  438.         trbtGETDRAWER    = 2;           (* GetDrawer button                       *)
  439.         trbtGETENTRY     = 3;           (* GetEntry button                        *)
  440.  
  441. CONST   (* Group *)
  442.         trgrPROPSHARE    = 00000000H;   (* Default: Divide objects proportionally *)
  443.         trgrEQUALSHARE   = 00000001H;   (* Divide objects equally                 *)
  444.         trgrPROPSPACES   = 00000002H;   (* Divide spaces proportionally           *)
  445.         trgrARRAY        = 00000004H;   (* Top-level array group                  *)
  446.  
  447.         trgrALIGN        = 00000008H;   (* Align resizeable objects in secondary  *)
  448.                                         (* dimension                              *)
  449.         trgrCENTER       = 00000010H;   (* Center unresizeable objects in         *)
  450.                                         (* secondary dimension                    *)
  451.  
  452.         trgrFIXHORIZ     = 00000020H;   (* Don't allow horizontal resizing        *)
  453.         trgrFIXVERT      = 00000040H;   (* Don't allow vertical resizing          *)
  454.         trgrINDEP        = 00000080H;   (* Group is independant of surrounding    *)
  455.                                         (* array                                  *)
  456.  
  457. CONST   (* Framebox *)
  458.         trfbGROUPING     = 00000001H;   (* A grouping box                         *)
  459.         trfbFRAMING      = 00000002H;   (* A framing box                          *)
  460.         trfbTEXT         = 00000004H;   (* A text container                       *)
  461.  
  462. CONST   (* Scroller *)
  463.         trscTotal        = ud.tagUser+1504;
  464.         trscVisible      = ud.tagUser+1505;
  465.  
  466. CONST   (* Slider *)
  467.         trslMin          = ud.tagUser+1502;
  468.         trslMax          = ud.tagUser+1503;
  469.  
  470. CONST   (* Space *)
  471.         trstNONE         = 1;         (* No space                                 *)
  472.         trstSMALL        = 2;         (* Small space                              *)
  473.         trstNORMAL       = 3;         (* Normal space (default)                   *)
  474.         trstBIG          = 4;         (* Big space                                *)
  475.  
  476. CONST   (* Listview *)
  477.         trlvTop          = ud.tagUser+1506;
  478.         trlvREADONLY     = 00010000H; (* A read-only list                         *)
  479.         trlvSELECT       = 00020000H; (* You may select an entry                  *)
  480.         trlvSHOWSELECTED = 00040000H; (* Selected entry will be shown             *)
  481.         trlvNOCURSORKEYS = 00080000H; (* Don't use arrow keys                     *)
  482.         trlvNONUMPADKEYS = 00100000H; (* Don't use numeric keypad keys            *)
  483.         trlvFWFONT       = 00200000H; (* Use the fixed-width font                 *)
  484.         trlvNOGAP        = 00400000H; (* Don't leave a gap below the list         *)
  485.  
  486. CONST   (* Image *)
  487.         trimBOOPSI       = 00010000H; (* Use a BOOPSI IClass image                *)
  488.  
  489. CONST   (* Cycle *)
  490.         trcyMX           = 00010000H; (* Unfold the cycle gadget to a MX gadget   *)
  491.         trcyRIGHTLABELS  = 00020000H; (* Put labels to the right of a MX gadget   *)
  492.  
  493. END TritonD.def
  494.